home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue43 / construc / Listing4.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1999-02-05  |  255 b   |  10 lines
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   Newsgroup: PChar;
  4.   Articles: HRESULT;
  5. begin
  6.   Newsgroup := PChar(Edit1.Text);
  7.   NewsgroupServer.JoinNewsgroup(Newsgroup, Articles);
  8.   Edit1.Text := Edit1.Text + ' ' + IntToStr(Articles)
  9. end;
  10.